home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / AMOS-ASCII.amos / AMOS-ASCII.amosSourceCode
AMOS Source Code  |  1980-01-10  |  1KB  |  24 lines
  1. Rem (C) AMOS TO ASCII BY DELTA/AFC 1996  
  2. If Prg Under=1 : Rem  Je�eli program jest dla akcesoria 
  3.    Set Accessory : Rem Program dla akcesori�w.
  4.    Ask Editor 2
  5.    Trap Screen Close 0 : Rem Zamykamy ekran numer 0.
  6.    Trap Open Out 1,Fsel$("",Left$(Param$,Len(Param$)-4)+"asc","Podaj nazw� pliku.")
  7.    If Errtrap=0 : Rem Je�eli otwarto plik
  8.       Call Editor 89 : Rem Otw�rz wszystkie procedury 
  9.       Call Editor 17 : Rem Kursor na pierwszej lini edytowanego programu. 
  10.       Ask Editor 5 : Rem Pytamy edytor o ilo�� lini edytowanego programu. 
  11.       For ILE=1 To Param : Rem Otwieramy pentl�.
  12.          Ask Editor 1 : Rem Pytamy o tre�� lini programu w kt�rej jest kursor
  13.          Print #1,Param$;Chr$(10); : Rem Zapisujemy t� lini�. 
  14.          Call Editor 2 : Rem Przesuwamy si� o jedn� lini� na d��
  15.       Next : Rem Je�li ILE wynosi ilo�� lini programu, wtedy wyjd� z pentli.
  16.       Print #1,"";Chr$(10); : Rem Dopisz Znacznik
  17.       Print #1,"' AMOS-ASCII BY DELTA/AFC 1996";Chr$(10);
  18.       Close : Rem Zamykamy plik
  19.    Else : Rem Je�li nie otwarto pliku to wyjd� 
  20.       Edit 
  21.    End If 
  22. Else : Rem Je�li program nie uruchomiono to wypisz komunikat  
  23.    Print "Program dla 'akcesori�w'"
  24. End If